subroutine use_aliases(c,nd,newnames,na)

    include 'ALIASES_structure.FI'
    include 'seisev_EVENT_PAHSE_structure.FI'
    integer i,j,k,n

write(*,*)' subroutine use_aliases'

do i=1,nd
  do j=1,na 
    if( c(i).sta  .eq.  newnames(j).s_code )then
      if(newnames(j).n_al .lt. 0)then
      ! in questo caso distinguo nell'ordine velocometro (h) e accelerometro (n).
        c(i).sta(5:5)='h'   ! ipotizzo che sia un velocimetro
        if(c(i).cha(2:2) .eq. 'L' .or. c(i).cha(2:2) .eq. 'N')c(i).sta(5:5)='n'
      else
      ! in questo caso distinguo per periodi di tempo
        k=newnames(j).n_al ! numero di periodi distinti (aliases) ordinati in tempo
        do n=1,k 
          if(c(i).ot .gt. newnames(j).al(n).start_date) c(i).sta=newnames(j).al(n).al_code
        enddo      
      endif
    endif
  enddo
enddo

return
end